home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_038_19xx_-_de_Side_B.d64 / "ir (.txt) next >
Commodore BASIC  |  2023-02-26  |  31KB  |  453 lines
  1. 1 sys1400,"scaug",49152:sys1258,49152,56832,2:sys1400,"scmil",49152:sys1258,49152,56320,2:sys1400,"aug",49152:sys1258,49152,54784,6:sys1400,"mili",49152:sys1258,49152,53248,6:sys1400,"karte2",57344:sys1400,"zsmili2",49152:sys1400,"schlachth",40960:sys1400,"spr1",65408
  2. 2 poke53265,peek(53265)or16:print"[147][144]":dimma(16),se(16),re(16),jr(16),zm(16),kr(16),gr(16),a$(16):hp(1)=2:hp(2)=14:hp(3)=13:hp(4)=9:si=54272:m=1:ja=305:kp=5:mp=50:zs=4:dimpo(16),sn(16),bn(16),is(16),sc(4),zp(4),m$(12),ag(16),ab(16),ib(16)
  3. 3 ws$(1)=" wenn du in den krieg ziehst, wirst du   ein grosses heer vernichten":ws$(2)=" du wirst einen grossen sieg erleben ":ws$(3)=" die schlacht wird g]nstig verlaufen ":ws$(4)=" es werden viele tapfere m[nner          sterben"
  4. 4 fori=1to4:zp(i)=4:ko(i)=200000:ex(i)=1:next:poke53280,1:dimzh(16),n$(4):dimep(16),bv(16),le(16),so(16),bo(16),k(16),gb(16),bw(16),fb(16),zb(16):dimsv(16),mo(16),be(16),a(6,16),bl(16),bs(16),bb(16),bk(16),np$(16),zg(16)
  5. 5 open2,8,2,"names,s,r":fori=1to4:input#2,n$(i):next:fori=1to16:input#2,np$(i):input#2,bw(i):input#2,fb(i):input#2,zb(i):input#2,zg(i):input#2,zh(i):next:close2:fori=1to16:po(i)=5000:sn(i)=15:is(i)=5:kr(i)=10:next:open2,8,2,"data1,s,r":fori=1to16:input#2,ep(i):input#2,bv(i):input#2,le(i)
  6. 6 input#2,so(i):input#2,bo(i):input#2,k(i):input#2,gb(i):input#2,sv(i):input#2,mo(i):input#2,be(i):next:close2:open2,8,2,"data2,s,r":input#2,sp:input#2,kp(1):input#2,kp(2):input#2,kp(3):input#2,kp(4):close2:gosub24:m$(1)="januar":m$(2)="februar":m$(3)="m[rz":m$(4)="april":m$(5)="mai"
  7. 7 m$(6)="juni":m$(7)="juli":m$(8)="august":m$(9)="september":m$(10)="oktober"
  8. 8 sys1659:yk=80:y=4:poke53280,1:goto13
  9. 9 ifpeek(56320)=125andyk<80thenyk=yk+10:gosub393:y=y+1
  10. 10 ifpeek(56320)=126andyk>50thenyk=yk-10:gosub393:y=y-1
  11. 11 poke53249,yk:ifpeek(56320)=111thengosub393:onygoto23,194,363,376:goto9
  12. 12 goto9
  13. 13 fori=1to16:poke1799+i,ep(i):next:fori=1to8:poke64775+i,peek(1872+8*sp+i):next:sys1072:goto9
  14. 14 print"[147] von welcher provinz m\chten sie":print"  eine milit[r-]bersicht ?":gosub423:print"  milit[r-]bersicht der provinz":print"   ";np$(p);tab(27);m$(m);ja:print"  legion[re :";tab(23);le(p):print"  s\ldner :";tab(23);so(p)
  15. 15 print"  bogensch]tzen :";tab(23);bo(p):print"  katapulte :";tab(23);k(p):print"  stimmung im milit[r :";tab(24);mo$(mo(p)):print"  grenzbefestigung :";tab(24);gb$(gb(p)):goto77
  16. 16 print"  wollen sie den p\bel aller ihrer":gk=0:j$="j":print"  provinzen auf einmal versorgen ? ";j$;:gosub408:print:ifj$="n"then196
  17. 17 fori=1to16:ifep(i)<>spthen19
  18. 18 gk=gk+po(i)
  19. 19 next:ifgk>ko(sp)thenprint"  sie besitzen nicht gen]gend korn !":wait56320,16,16:goto196
  20. 20 ko(sp)=ko(sp)-gk:pp=1:fori=1to16:ifep(i)<>spthen22
  21. 21 bn(i)=po(i)
  22. 22 next:goto195
  23. 23 sys1624:sys1258,53248,49664,6:goto29
  24. 24 mo$(0)="ganz mies":mo$(1)="sehr schlecht":mo$(2)="schlecht":mo$(3)="sehr unzufrieden":mo$(4)="unzufrieden":mo$(5)="normal":mo$(6)="zufrieden":mo$(7)="ziemlich gut":mo$(8)="gut":mo$(9)="sehr gut":mo$(10)="begeistert"
  25. 25 m$(11)="november":m$(12)="dezember":a(1,1)=2:a(1,2)=1:a(2,2)=3:a(3,2)=15:a(4,2)=14:a(1,3)=2:a(2,3)=4:a(1,4)=3:a(2,4)=5:a(1,5)=4:a(2,5)=6:a(2,1)=15:a(1,6)=5:a(2,6)=7:a(1,7)=6:a(2,7)=8:a(3,7)=14:a(1,8)=7:a(2,8)=9:a(1,9)=8:a(2,9)=10:a(3,9)=11
  26. 26 a(1,10)=9:a(2,10)=11:a(3,10)=12:a(1,11)=10:a(2,11)=12:a(3,11)=13:a(1,12)=10:a(2,12)=11:a(3,12)=13:a(1,13)=12:a(2,13)=11:a(3,13)=14:a(4,13)=16:a(1,14)=13:a(2,14)=16:a(3,14)=15:a(4,14)=2:a(5,14)=7:a(1,15)=2:a(2,15)=16:a(3,15)=14
  27. 27 a(1,16)=15:a(2,16)=14:a(3,16)=13:a(4,16)=2:a(2,1)=15:a(4,15)=1:gb$(0)="nicht vorh.":gb$(1)="sehr schlecht":gb$(2)="schlecht":hz$(1)="aug":hs$(1)="scaug":hz$(2)="medi":hs$(2)="scmed"
  28. 28 gb$(3)="nicht ausreichend":gb$(4)="kaum ausreichend":gb$(5)="ausreichend":hz$(3)="sirmi":hs$(3)="scsirm":hz$(4)="nico":hs$(4)="scnic":gb$(6)="befriedigend":gb$(7)="ziemlich gut":gb$(8)="gut":gb$(9)="sehr gut":gb$(10)="super":return
  29. 29 sys1464,56320
  30. 30 poke53281,1:poke53280,6:print"[144]";:sys1200:print"        milit[r":printtab(2);" sie rufen ihren":print"   obersten feldherrn.":print"   dieser erscheint":printtab(2);" sogleich in ihrem":printtab(2);" palast und ruft :":print:print" ave, caesar ";n$(sp);"!":print:print:print" wollen sie":print
  31. 31 print"  armeest[rke ver[ndern":print"  truppen bewegen":print"  grenzen befestigen":print"  angreifen":print"  milit[r-]bersicht":print" _^menue":i=21:j=16:gosub449:a=peek(214)-15:onagoto32,63,78,84,14,8
  32. 32 print"[147]   armeest[rke":print:print"  sie haben folgende ":print"  m\glichkeiten :":print"                     ":print"  legion[re rekrutieren":print"  s\ldner anwerben     ":print"  soldaten entlassen":print"  bogensch]tzen ausbilden":print"  katapulte kaufen":print"  moral steigern"
  33. 33 print"  karte betrachten":print" _^menue":print:print"  ihr kapital betr[gt":print"  ";kp(sp);"aurei !":print"[145][145][145]";:i=14:j=7:gosub449:on(peek(214)-6)goto34,40,44,51,180,56,60,30
  34. 34 print"":print"in welcher provinz wollen sie ":print"    rekrutieren ?";:gosub423:print"[145][145][145][145][145]":print" wieviele legion[re wollen sie":print"    rekrutieren ?";:gosub398:s=sl:ifs=0then32
  35. 35 ifre(p)+sl>5000thenprint"  keine derartige rekrutierung m\glich !":goto38
  36. 36 ifgr(p)+s>0.2*bv(p)thenprint"  keine derartige rekrutierung m\glich !":goto38
  37. 37 goto39
  38. 38 wait56320,16,16:print"":goto32
  39. 39 le(p)=le(p)+s:re(p)=re(p)+sl:gr(p)=gr(p)+sl:mo(p)=int((mo(p)*(le(p)+so(p)+bo(p)-sl)+5*sl)/(le(p)+so(p)+bo(p))):print" in dieser provinz befinden sich nun":print"   ";le(p);" legion[re !":wait56320,16,16:goto32
  40. 40 print"":print"f]r welche provinz wollen sie ":print"    anwerben ?";:gosub423:print"[145][145][145]":print" wieviele s\ldner wollen sie f]r ":print" 4 aurei/kopf anwerben";:gosub398:s=sl:ifint(kp(sp)-s*4+.5)<0then29
  41. 41 ifs=0then43
  42. 42 so(p)=so(p)+s:kp(sp)=int(kp(sp)-s*4+.5):mo(p)=int((mo(p)*(le(p)+so(p)+bo(p)-sl)+4*s)/(le(p)+so(p)+bo(p)))
  43. 43 print" in dieser provinz befinden sich nun":print"   ";so(p);" s\ldner !":wait56320,16,16:goto32
  44. 44 print"":print"in welcher provinz wollen sie ":print" soldaten entlassen ?";:gosub423:print"[145][145][145]":print" wollen sie                       ":print"   s\ldner oder                        ":print" _ legion[re                       ":print" entlassen ?[145]":a=2:goto181
  45. 45 poke781,19:sys59903:poke781,20:sys59903:print"[145][145]":print" wieviele soldaten wollen sie          ":print"  entlassen ?";:gosub398:poke781,23:sys59903:poke781,22:sys59903:ifa=1then48
  46. 46 ifsl>le(p)then32
  47. 47 le(p)=le(p)-sl:goto50
  48. 48 ifsl>so(p)then32
  49. 49 so(p)=so(p)-sl
  50. 50 print"[145][145] in dieser provinz befinden sich nun ":printso(p);"s\ldner und";le(p);"legion[re !     ":wait56320,16,16:goto32
  51. 51 print"":print"in welcher provinz wollen sie ":print" bogensch]tzen ausbilden ?";:gosub423:print"[145][145][145]":print" wieviele bogensch]tzen wollen sie zu":print" 50 aurei/kopf ausbilden ?";:gosub398:ifsl*50>kp(sp)then32
  52. 52 bo(p)=bo(p)+sl:kp(sp)=kp(sp)-sl*50:mo(p)=int((mo(p)*(le(p)+so(p)+bo(p)-sl)+5*sl)/(le(p)+so(p)+bo(p))):goto55
  53. 53 print"[145][145][145]":print" wieviele katapulte wollen sie zu":print" 100 aurei/st]ck kaufen ?";:gosub398:ifsl*100>kp(sp)then32
  54. 54 k(p)=k(p)+sl:kp(sp)=kp(sp)-sl*100
  55. 55 print" in dieser provinz befinden sich nun":print" ";bo(p);"bogensch]tzen und";k(p);"katapulte !":wait56320,16,16:goto32
  56. 56 print"":print"in welcher provinz wollen sie ":print" die moral steigern ?";:gosub423:print"[145][145][145][145] die moral hier ist ";mo$(mo(p)):print" wieviel geld wollen sie f]r die armee":print"  zus[tzlich ausgeben";:gosub398:poke781,18:sys59903:ifkp(sp)-sl<0then32
  57. 57 zm(p)=zm(p)+sl:xx=le(p)+so(p)+bo(p):ifxx=0thenzm(p)=0:goto59
  58. 58 mo(p)=mo(p)+int(2*zm(p)/xx):kp(sp)=kp(sp)-sl:zm(p)=xx*(2*zm(p)/xx-int(2*zm(p)/xx)):ifmo(p)>10thenmo(p)=10
  59. 59 print" [145][145]die moral der truppe ist jetzt        ":poke781,22:sys59903:poke781,21:sys59903:print"  ";mo$(mo(p)):wait56320,16,16:goto32
  60. 60 sys1024:poke53272,56
  61. 61 ifpeek(56320)<>111then61
  62. 62 poke53272,48:poke53265,peek(53265)and223:goto32
  63. 63 print"":sys1200:print" aus welcher provinz wollen sie ":print"  truppen ziehen ?";:gosub423:p1=p:print" in welche provinz wollen sie":print"   truppen ziehen ?";:gosub423:p2=p:x=1
  64. 64 ifp1=a(x,p2)then67
  65. 65 ifa(x,p2)=0then30
  66. 66 x=x+1:goto64
  67. 67 t=17:s=29:print"[147]":printtab(t);left$(np$(p1),10);tab(s);left$(np$(p2),10):printtab(10);" ---------------------------":print" legion[re :";tab(t);le(p1);tab(s);le(p2):print" s\ldner :";tab(t);so(p1);tab(s);so(p2):print" bogensch]tzen :";tab(t);bo(p1);tab(s);bo(p2):print" katapulte :";tab(t);k(p1);tab(s);k(p2)
  68. 68 print" wieviele legion[re wollen sie nach ":print"  ";left$(np$(p2),10);" ziehen ?";:gosub398:ifsl>le(p1)thenprint" unm\glich ":goto77
  69. 69 ifsl>le(p1)-bl(p1)thenprint" unm\glich":goto77
  70. 70 le(p1)=le(p1)-sl:le(p2)=le(p2)+sl:bl(p2)=bl(p2)+sl:print" wieviele s\ldner wollen sie nach ":print"  ";left$(np$(p2),10);" ziehen ?";:gosub398:ifsl>so(p1)thenprint" unm\glich ":goto77
  71. 71 ifsl>so(p1)-bs(p1)thenprint" unm\glich":goto77
  72. 72 so(p1)=so(p1)-sl:so(p2)=so(p2)+sl:bs(p2)=bs(p2)+sl:print" wieviele sch]tzen wollen sie nach ":print"  ";left$(np$(p2),10);" ziehen ?";:gosub398:ifsl>bo(p1)thenprint" unm\glich ":goto77
  73. 73 ifsl>bo(p1)-bb(p1)thenprint" unm\glich":goto77
  74. 74 bo(p1)=bo(p1)-sl:bo(p2)=bo(p2)+sl:bb(p2)=bb(p2)+sl:print" wieviele katapulte wollen sie nach ":print"  ";left$(np$(p2),10);" ziehen ?";:gosub398:ifsl>k(p1)thenprint" unm\glich ":goto77
  75. 75 ifsl>k(p1)-bk(p1)thenprint" unm\glich":goto77
  76. 76 k(p1)=k(p1)-sl:k(p2)=k(p2)+sl:bk(p2)=bk(p2)+sl
  77. 77 wait56320,16,16:print"[147]":goto30
  78. 78 print"":sys1200:print" in welcher provinz wollen sie die":print"  grenzen befestigen ?";:gosub423:print"[145][145][145]":print"die grenzbefestigung in dieser provinz":print" ist ";gb$(gb(p));:fort=1to30-len(gb$(gb(p))):print" ";:next:print:print" wieviel geld wollen sie f]r neue     "
  79. 79 print" anlagen ausgeben ?";:gosub398:print:ifsl>kp(sp)then30
  80. 80 gb(p)=int(gb(p)+sl/2000+.5):kp(sp)=kp(sp)-sl:ifgb(p)>10thengb(p)=10
  81. 81 print"  die grenzbefestigung ist nun         ":print"   ";gb$(gb(p));" !":wait56320,16,16:goto30
  82. 82 print:print" caesar ";n$(ep(p1));", nehmen sie ":j$="j":print"  die bestechung an ?";j$;:gosub408:print:print:ifj$="n"then114
  83. 83 kp(sp)=kp(sp)+sl:kp(ep(p2))=kp(ep(p2))-sl:goto29
  84. 84 ifja=308andm=1then30
  85. 85 print"[147] wen wollen sie angreifen ?":s=0:n=0:g=0:a=2:an=0:v=0:se=0:print:print"   barbaren ":print"  _feindliche provinz"
  86. 86 ifpeek(56320)=126anda=2thena=1:print"[145][145]  _":print"   ":gosub393
  87. 87 ifpeek(56320)=125anda=1thena=2:print"[145][145]   ":print"  _":gosub393
  88. 88 ifpeek(56320)=111thengosub393:goto90
  89. 89 goto86
  90. 90 ifa=2then177
  91. 91 print:print"  aus welcher provinz wollen sie ":print"   angreifen":gosub423:p1=p:gosub378:kk=3*el+2*es+4*eb+20*ek:ifkk=0then29
  92. 92 print"   der feldzug l[uft !!!":forx=1to2000:next:kk=kk/100000*(15+mo(p))/20:y=int(rnd(0)*2)+1:kk=kk*y:ifkk<.2thena=1:n=-2:g=-2:goto96
  93. 93 ifkk<.4thena=2:n=-1:goto96
  94. 94 ifkk<.8thena=3:goto96
  95. 95 a=4:n=2:s=1
  96. 96 gosub394:print"[147]    das ergebnis ihres feldzuges":print:print:fi$="barbar"+str$(a):open2,8,2,fi$+",s,r":input#2,az:fort=1to2*az-1:get#2,a$:ifa$=chr$(13)thennext
  97. 97 printa$;:next:close2:print:print:ifkk<0.2theny=1:goto101
  98. 98 ifkk<0.4theny=rnd(0)*.2+.5:goto101
  99. 99 ifkk<0.8theny=rnd(0)*.2+.2:goto101
  100. 100 y=rnd(0)*.1
  101. 101 b=int(10000*kk/2*(rnd(0)*2+1)):vl%=y*el:vs%=y*es:vb%=y*eb:vk%=y*ek:print"  verlustliste: ":print:print" legion[re :";vl%:print" s\ldner :";vs%:print" sch]tzen :";vb%:print" katapulte :";vk%:print:print:print" sie erbeuteten ";b;" aurei !"
  102. 102 le(p)=le(p)-vl%:so(p)=so(p)-vs%:bo(p)=bo(p)-vb%:k(p)=k(p)-vk%:kp(sp)=kp(sp)+b:mo(p)=mo(p)+n:gb(p)=gb(p)+g:sv(p)=sv(p)+s:ifmo(p)>10thenmo(p)=10
  103. 103 ifmo(p)<0thenmo(p)=0
  104. 104 ifgb(p)<0thengb(p)=0
  105. 105 ifsv(p)>10thensv(p)=10
  106. 106 goto77
  107. 107 print"[147]  von welcher provinz aus wollen sie":print"   angreifen ?":gosub423:p1=p:print:print:print" welche provinz wollen sie":print"   angreifen ?":gosub436:p2=p:x=1:k1=0:k2=0
  108. 108 ifp1=a(x,p2)then111
  109. 109 ifa(x,p2)=0then174
  110. 110 x=x+1:goto108
  111. 111 ifep(p2)=0then114
  112. 112 print:print" caesar ";n$(ep(p2));", wollen sie ":j$="j":print"  den angreifer bestechen ? ";j$;:gosub408:print:print:ifj$="n"then114
  113. 113 print" wieviel geld wollen sie ":print" ihm geben ?";:gosub398:ifsl<=kp(ep(p2))then82
  114. 114 gosub378:k1=3*el+2*es+4*eb+25*ek:k2=3*le(p2)+2*so(p2)+4*bo(p2)+25*k(p2):ifk1=0then77
  115. 115 le(p1)=le(p1)-el:so(p1)=so(p1)-es:bo(p1)=bo(p1)-eb:k(p1)=k(p1)-ek:ifk2=0then293
  116. 116 k1=k1/100000:k2=k2/100000:sys1966:sys1333:sys1701:xy=500:poke53272,56:poke53265,peek(53265)or32:sys1200
  117. 117 x$=str$(el):i=2:poke250,128:poke251,244:ifpeek(56320)=111then185
  118. 118 a$=mid$(x$,i,1):a=val(a$):poke2032,a*8:sys1600:ifpeek(56320)=111then185
  119. 119 i=i+1:poke250,peek(250)+8:ifi=len(x$)+1then121
  120. 120 goto118
  121. 121 x$=str$(le(p2)):i=2:poke250,216:poke251,244
  122. 122 a$=mid$(x$,i,1):a=val(a$):poke2032,a*8:sys1600:i=i+1:gosub175:ifi=len(x$)+1then124
  123. 123 goto122
  124. 124 x$=str$(es):i=2:poke250,193:poke251,245:ifpeek(56320)=111then185
  125. 125 a$=mid$(x$,i,1):a=val(a$):poke2032,a*8:sys1600:i=i+1:gosub175:ifi=len(x$)+1then127
  126. 126 goto125
  127. 127 x$=str$(so(p2)):i=2:poke250,25:poke251,246:ifpeek(56320)=111then185
  128. 128 a$=mid$(x$,i,1):a=val(a$):poke2032,a*8:sys1600:i=i+1:poke250,peek(250)+8:ifi=len(x$)+1then130
  129. 129 goto128
  130. 130 x$=str$(eb):i=2:poke250,1:poke251,247:ifpeek(56320)=111then185
  131. 131 a$=mid$(x$,i,1):a=val(a$):poke2032,a*8:sys1600:i=i+1:poke250,peek(250)+8:ifi=len(x$)+1then133
  132. 132 goto131
  133. 133 x$=str$(bo(p2)):i=2:poke250,89:poke251,247:ifpeek(56320)=111then185
  134. 134 a$=mid$(x$,i,1):a=val(a$):poke2032,a*8:sys1600:i=i+1:poke250,peek(250)+8:ifi=len(x$)+1then136
  135. 135 goto134
  136. 136 x$=str$(ek):i=2:poke250,65:poke251,248:ifpeek(56320)=111then185
  137. 137 a$=mid$(x$,i,1):a=val(a$):poke2032,a*8:sys1600:i=i+1:poke250,peek(250)+8:ifi=len(x$)+1then139
  138. 138 goto137
  139. 139 x$=str$(k(p2)):i=2:poke250,153:poke251,248
  140. 140 a$=mid$(x$,i,1):a=val(a$):poke2032,a*8:sys1600:i=i+1:poke250,peek(250)+8:ifi=len(x$)+1then142
  141. 141 goto140
  142. 142 ifan=4then171
  143. 143 ifv=4then160
  144. 144 an=0:v=0:el=int(el-((rnd(0)*2+1)/2*xy*k2/k1*(gb(p2)+1)/3)):le(p2)=int(le(p2)-((rnd(0)+1)/2*xy*k1/k2)):ifel<=0thenel=0:an=an+1
  145. 145 ifle(p2)<=0thenle(p2)=0:v=v+1
  146. 146 ifpeek(56320)=111then185
  147. 147 ifle(p2)<=0thenle(p2)=0
  148. 148 es=int(es-((rnd(0)*2+1)/2*xy*k2/k1*(gb(p2)+1)/3)):ifpeek(56320)=111then185
  149. 149 so(p2)=int(so(p2)-((rnd(0)+1)/2*xy*k1/k2)):ifes<=0thenes=0:an=an+1
  150. 150 ifso(p2)<=0thenso(p2)=0:v=v+1
  151. 151 eb=int(eb-((rnd(0)*2+1)/50*xy*k2/k1*(gb(p2)+1)/3)):ifpeek(56320)=111then185
  152. 152 bo(p2)=int(bo(p2)-((rnd(0)+1)/50*xy*k1/k2)):ifeb<=0theneb=0:an=an+1
  153. 153 ifbo(p2)<=0thenbo(p2)=0:v=v+1
  154. 154 ifpeek(56320)=111then185
  155. 155 ek=int(ek-((rnd(0)*2+1)/100*xy*k2/k1*(gb(p2)+1)/3)):ifpeek(56320)=111then185
  156. 156 k(p2)=int(k(p2)-((rnd(0)+1)/100*xy*k1/k2)):ifek<=0thenek=0:an=an+1
  157. 157 ifk(p2)<=0thenk(p2)=0:v=v+1
  158. 158 ifpeek(56320)=111then185
  159. 159 sys1701:goto117
  160. 160 ifep(p2)=0thenmo(p2)=5:sv(p2)=5
  161. 161 le(p2)=el:so(p2)=es:bo(p2)=eb:k(p2)=ek:mo(p1)=mo(p1)+1:ifmo(p1)>10thenmo(p1)=10
  162. 162 mo(p2)=mo(p1):sv(p1)=sv(p1)+1:ifsv(p1)>10thensv(p1)=10
  163. 163 ifep(p2)=0then166
  164. 164 ifzp(ep(p2))=1thenko(sp)=ko(sp)+ko(ep(p2))
  165. 165 ko(ep(p2))=ko(ep(p2))-x:sv(p2)=sv(p2)-1:ifsv(p2)<0thensv(p2)=0
  166. 166 gb(p2)=gb(p2)-int(rnd(o)*3+1):ifgb(p2)<0thengb(p2)=0
  167. 167 bl(p2)=el:bs(p2)=es:bb(p2)=eb:bk(p2)=ek:zp(sp)=zp(sp)+1:is(p2)=is(p2)-int(rnd(o)*3+1):ifis(p2)<0thenis(p2)=0
  168. 168 sys1624:ifp2=hp(ep(p2))thenp=p2:gosub355:goto170
  169. 169 zp(ep(p2))=zp(ep(p2))-1:x=int(ko(ep(p2))/zp(ep(p2))):ko(sp)=ko(sp)+x
  170. 170 ep(p2)=sp:sys1966:goto8
  171. 171 mo(p1)=mo(p1)-2:ifmo(p1)<0thenmo(p1)=0
  172. 172 le(p1)=le(p1)+el:so(p1)=so(p1)+es:bo(p1)=bo(p1)+eb:k(p1)=k(p1)+ek:sv(hp(ep(p1)))=sv(hp(ep(p1)))-1:ifsv(hp(ep(p1)))<0thensv(hp(ep(p1)))=0
  173. 173 bl(p1)=bl(p1)+el:bs(p1)=bs(p1)+es:bb(p1)=bb(p1)+eb:bk(p1)=bk(p1)+ek:poke53272,48:poke53265,peek(53265)and223:print"[147]":sys1966
  174. 174 goto29:goto8
  175. 175 ifpeek(250)+8>255thenpoke251,peek(251)+1:poke250,peek(250)+8-256:return
  176. 176 poke250,peek(250)+8:return
  177. 177 j$="j":print:print"  wollen sie einen seher nach dem":print"  schlachtengl]ck befragen ? ";j$;:gosub408:ifj$="n"then107
  178. 178 gosub394:f$="seher.hr":gosub396:sys1400,"seher.hr",57344:sys1400,"seher.co",51200:poke53272,56:poke53265,peek(53265)or32:sys1200:wait56320,16,16:sys1624:print:print:print"  der seher verlangte 10000 aurei.":kp(sp)=kp(sp)-10000:print"  er sagte :":i=int(4*rnd(0)+1):print" ";ws$(i);"!"
  179. 179 gosub394:f$="karte2":gosub396:sys1400,"karte2",57344:wait56320,16,16:goto107
  180. 180 print"":print"in welcher provinz wollen sie ":print" katapulte bauen ?";:gosub423:goto53
  181. 181 ifpeek(56320)=126anda=2thena=1:print"[145][145] _":print"   ":gosub393
  182. 182 ifpeek(56320)=125anda=1thena=2:print"[145][145]  ":print" _ ":gosub393
  183. 183 ifpeek(56320)=111thengosub393:goto45
  184. 184 goto181
  185. 185 ifel<=0thenel=0
  186. 186 ifes<=0thenes=0
  187. 187 ifeb<=0theneb=0
  188. 188 ifek<=0thenek=0
  189. 189 ifle(p2)<=0thenle(p2)=0
  190. 190 ifso(p2)<=0thenso(p2)=0
  191. 191 ifbo(p2)<=0thenbo(p2)=0
  192. 192 ifk(p2)<=0thenk(p2)=0
  193. 193 goto171
  194. 194 sys1624:sys1258,54784,49664,6:sys1464,56832
  195. 195 print"[147]":poke53281,1:poke53280,6:print"[144]";:ifpp=0then16
  196. 196 print"[147]":sys1200:print"  den statthalter":print"  welcher provinz ":print"  m\chten sie zu":print"  sich bitten ?":print"":gosub423
  197. 197 sys1200:print"":print"  der statthalter ":print"  bringt ihnen":print"  informationen und":print"  erwartet ihre ":print"  instruktionen !":print"  innenpolitik":print"  aussenhandel":print"  wirtschaft":print"  monats]bersicht":print"  andere provinz":print" _^menue":print"  caesar ";n$(sp)
  198. 198 print"  kapital";kp(sp);"aurei":print"[145][145][145][145][145][145][145]":i=16:j=11:gosub449:a=peek(214)-10:onagoto199,230,217,290,195,8
  199. 199 print"[147]  ern[hrung des p\bels":print"  steuersatz [ndern":print"  stimmung in eigener provinz":print"  stimmung in fremder provinz":print" _^menue":i=7:j=3:gosub449:a=peek(214)-2:onagoto200,206,209,213,197
  200. 200 print"":print"  in dieser provinz leben";po(p)"":print"  ern[hrungsbed]rftige !":x$=str$(po(p)):x=len(x$):fori=xto1step-1:su$(i)=mid$(x$,x+1-i,1):sl(i)=val(su$(i)):ifsu$(i)=""orsu$(i)=" "thensu$(i)="0":sl(i)=0
  201. 201 next:ts=33:l=1:sl=0:print"  jeder ben\tigt einen scheffel korn ":print"  im monat ! ":print:print"  bestimmen sie die menge,":print"  die ausgegeben werden soll:";tab(29);"00000":print"[145]";tab(35-x);right$(x$,x-1):gosub399:goto204
  202. 202 ifpeek(56320)=111then199
  203. 203 goto202
  204. 204 ifsl>ko(sp)thenprint" so viel korn haben sie nicht vorr[tig !":goto202
  205. 205 ko(sp)=ko(sp)-sl:bn(p)=bn(p)+sl:pp=1:goto199
  206. 206 print"":print"  der steuersatz in dieser provinz ":print"  betr[gt";sn(p);"% !":j$="j":print"  wollen sie dies [ndern ? ";j$;:gosub408:ifj$="n"then199
  207. 207 print:print:print"  geben sie den neuen ":print"  steuersatz an ";:gosub398:ifsl>100thenprint"  unm\glich !!":goto202
  208. 208 sn(p)=sl:goto199
  209. 209 print"  die stimmung in dieser provinz ist":print"  ";mo$(sv(p));" !":print:j$="j":print"  wollen sie propaganda ( 10000 aurei )":print"    betreiben ?";j$;:gosub408:ifj$="n"then199
  210. 210 if10000>kp(sp)thenprint:print:print"  zuwenig geld !!":goto202
  211. 211 kp(sp)=kp(sp)-10000:sv(p)=sv(p)+1:ifsv(p)>10thensv(p)=10
  212. 212 goto199
  213. 213 print"  in welcher provinz der feinde wollen":a=p:print"   sie das volk aufwiegeln ?":gosub436:print:print"  wollen sie in dieser provinz propa-":j$="j":i=p:p=a:print"  ganda betreiben ( 20000 aurei ) ? ";j$;:gosub408:ifj$="n"then199
  214. 214 ifkp(sp)<20000thenprint:print:print"  zuwenig geld !!":goto202
  215. 215 kp(sp)=kp(sp)-20000:sv(i)=sv(i)-1:ifsv(i)<0thensv(i)=0
  216. 216 goto199
  217. 217 print"[147]              wirtschaft":print"  bauernh\fe anlegen":print"  bergwerke errichten":print"  infrastruktur verbessern":print"  kredit aufnehmen":print" _^menue":print"    kapital";kp(sp);"aurei";"[145][145]":i=9:j=5:gosub449:a=peek(214)-4:onagoto218,220,222,226,197
  218. 218 print"  in dieser provinz besitzen sie":print"  bereits";zg(p);"bauernh\fe .":print:print"  das anlegen eines hofes kostet ":print"  500 aurei !":print"  wie viele bauernh\fe wollen sie":print"  anlegen ";:gosub398:ifsl*500>kp(sp)thenprint:print"  zuwenig geld !!":goto229
  219. 219 kp(sp)=kp(sp)-sl*500:zg(p)=zg(p)+sl:goto217
  220. 220 print"  in dieser provinz besitzen sie":print"  bereits";zb(p);"bergwerke .":print:print"  das anlegen eines bergwerks kostet ":print"  6000 aurei !":print"  wie viele bergwerke wollen sie":print"  errichten ";:gosub398:ifsl*6000>kp(sp)thenprint:print"  zuwenig geld !!":goto229
  221. 221 kp(sp)=kp(sp)-sl*6000:zb(p)=zb(p)+sl:goto217
  222. 222 print"  die infrastruktur dieser provinz ist":print"  ";gb$(is(p)):print:print"  wollen sie die infrastruktur ":j$="j":print"  verbessern (5000 aurei) ? ";j$;:gosub408:ifj$="n"then217
  223. 223 ifkp(sp)<5000thenprint:print"  zu wenig geld !!":goto229
  224. 224 kp(sp)=kp(sp)-5000:is(p)=is(p)+1:ifis(p)>10thenis(p)=10
  225. 225 goto217
  226. 226 print"  sie bitten einen reichen kaufmann um":print"  ein darlehen.":print"  wieviel aurei wollen sie sich ":print"   borgen ?";:gosub398:ifsc(sp)+sl>10000*zp(sp)thenprint:print"  der kaufmann gibt ihnen nichts mehr !"
  227. 227 ifsc(sp)+sl>10000*zp(sp)then229
  228. 228 sc(sp)=sc(sp)+sl:kp(sp)=kp(sp)+sl:goto217
  229. 229 wait56320,16,16:goto217
  230. 230 print"[147]              aussenhandel":print"  korn verkaufen";tab(19);"preis";int(9*kp)/10;"/100 sch.":print"  korn kaufen";tab(19);"preis";int(11*kp)/10;"/100 sch.":print"  erze verkaufen";tab(19);"preis";int(mp*9)/10;"/zentner"
  231. 231 print"  erze kaufen";tab(19);"preis";int(mp*11)/10"/zentner":print"  anderen kaiser unterst]tzen":print" _^menue":print"  kornvorrat";ko(sp);"scheffel":print"  erzvorrat";er(sp);"zentner":print"  kapital";kp(sp);"aurei":print"[145][145][145][145][145]";:i=12:j=7:gosub449
  232. 232 a=peek(214)-6:onagoto234,236,238,240,242,197
  233. 233 wait56320,16,16:goto230
  234. 234 print"":print"  wieviel korn wollen sie":print"  verkaufen ?";:gosub398:ifsl>ko(sp)thenprint"  unm\glich !!":goto233
  235. 235 ko(sp)=ko(sp)-sl:kp(sp)=int(kp(sp)+int(9*kp)/1000*sl):goto230
  236. 236 print"":print"  wieviel korn wollen sie":print"  kaufen ?";:gosub398:ifsl*int(11*kp)/1000>kp(sp)thenprint"  unm\glich !!":goto233
  237. 237 ko(sp)=ko(sp)+sl:kp(sp)=int(kp(sp)-int(11*kp)/1000*sl):goto230
  238. 238 print"":print"  wieviel erz wollen sie":print"  verkaufen ?";:gosub398:ifsl>er(sp)thenprint"  unm\glich !!":goto233
  239. 239 er(sp)=er(sp)-sl:kp(sp)=int(kp(sp)+int(9*mp)/10*sl):goto230
  240. 240 print"":print"  wieviel erz wollen sie":print"  kaufen ?";:gosub398:ifsl*int(11*mp)/10>kp(sp)thenprint"  unm\glich !!":goto233
  241. 241 er(sp)=er(sp)+sl:kp(sp)=int(kp(sp)-int(11*mp)/10*sl):goto230
  242. 242 print"[147]       handel mit mitspielern":print:print:print"  korn schenken":print"  erz schenken":print"  geld schenken":print"  s\ldner schenken":print"  katapulte schenken":print"  bogensch]tzen schenken":print" _^menue":i=12:j=6:gosub449:goto244
  243. 243 wait56320,16,16:goto242
  244. 244 a=peek(214)-5:ifa=7then230
  245. 245 print"[147]  welchen spieler wollen sie ":i=1:ifsp=1theni=2
  246. 246 print"  beschenken ? caesar ";n$(i);"         "
  247. 247 ifpeek(56320)=125theni=i-1:gosub393:goto251
  248. 248 ifpeek(56320)=126theni=i+1:gosub393:goto251
  249. 249 ifpeek(56320)=111thengosub393:goto256
  250. 250 goto247
  251. 251 ifi>4theni=1
  252. 252 ifi<1theni=4
  253. 253 ifi=sptheni=i+1:goto251
  254. 254 ifep(hp(i))<>itheni=i+1:goto251
  255. 255 print"[145]";:goto246
  256. 256 gosub263:onagoto257,259,261,281,287,284,197
  257. 257 print"  wieviel korn wollen sie ihm":print"  schenken ?";:gosub398:ifsl>ko(sp)thenprint"  soviel haben sie nicht !!":goto243
  258. 258 ko(sp)=ko(sp)-sl:ko(i)=ko(i)+sl:goto242
  259. 259 print"  wieviel erz wollen sie ihm":print"  schenken ?";:gosub398:ifsl>er(sp)thenprint"  soviel haben sie nicht !!":goto243
  260. 260 er(sp)=er(sp)-sl:er(i)=er(i)+sl:goto242
  261. 261 print"  wieviel geld wollen sie ihm":print"  schenken ?";:gosub398:ifsl>kp(sp)thenprint"  soviel haben sie nicht !!":goto243
  262. 262 kp(sp)=kp(sp)-sl:kp(i)=kp(i)+sl:goto242
  263. 263 p=1:print"  f]r welche provinz wollen sie ihm":print"  etwas schenken ?"
  264. 264 ifep(r)<>ithenr=r+1:goto266
  265. 265 goto268
  266. 266 ifr>16thenr=1
  267. 267 goto264
  268. 268 print"  ";np$(r);" ?";:fort=1to30-len(np$(r)):print" ";:next:print"[145]"
  269. 269 ifpeek(56320)=125thenr=r-1:gosub393:goto273
  270. 270 ifpeek(56320)=126thenr=r+1:gosub393:goto273
  271. 271 ifpeek(56320)=111thengosub393:return
  272. 272 goto269
  273. 273 ifr>16thenr=1
  274. 274 ifr<1thenr=16
  275. 275 goto264
  276. 276 x=1:i=0
  277. 277 ifp=a(x,r)thenreturn
  278. 278 ifa(x,r)=0then280
  279. 279 x=x+1:goto277
  280. 280 i=1.1:return
  281. 281 gosub276:ifi=1.1then242
  282. 282 print"  wie viele s\ldner wollen sie ihm":print"  schenken ?";:gosub398:ifsl>so(p)thenprint"  so viele haben sie hier nicht !":goto243
  283. 283 so(p)=so(p)-sl:so(r)=so(r)+sl:bs(r)=bs(r)+sl:goto242
  284. 284 gosub276:ifi=1.1then242
  285. 285 print"  wie viele sch]tzen wollen sie ihm":print"  schenken ?";:gosub398:ifsl>bo(p)thenprint"  so viele haben sie hier nicht !":goto243
  286. 286 bo(p)=bo(p)-sl:bo(r)=bo(r)+sl:bb(r)=bb(r)+sl:goto242
  287. 287 gosub276:ifi=1.1then242
  288. 288 print"  wie viele katapulte wollen sie ihm":print"  schenken ?";:gosub398:ifsl>k(p)thenprint"  so viele haben sie hier nicht !":goto243
  289. 289 k(p)=k(p)-sl:k(r)=k(r)+sl:bk(r)=bk(r)+sl:goto242
  290. 290 print"[147]  monats]bersicht der provinz":print"  ";np$(p);tab(26);m$(m);ja:print" ausgaben f]r gutsh\fe";tab(25);ag(p):print" ausgaben f]r bergwerke";tab(25);ab(p):print" milit[rausgaben";tab(25);ma(p):print:print" einnahmen der bergwerke";tab(25);ib(p):print" steuereinnahmen";tab(25);se(p)
  291. 291 print:print" zahl der gutsh\fe";tab(25);zg(p):print" zahl der bergwerke";tab(25);zb(p):print" stimmung im volk:";tab(26);mo$(sv(p)):print" stimmung im milit[r:";tab(26);mo$(mo(p)):print" abgegebenes korn:";tab(25);bn(p):print" zahl des proletariats";tab(25);po(p):print" bev\lkerung";tab(25);bv(p)
  292. 292 print" steuersatz";tab(25);sn(p);"%":print" provinznummer";tab(25);p:wait56320,16,16:goto197
  293. 293 print"[147]  da in dieser provinz keine truppen":print"  stationiert sind, k\nnen sie mit ":print"  ihren soldaten ungehindert in deren":print"  hauptstadt einmarschieren. ":print"  dort erfahren sie, dass sich der bis-":print"  herige statthalter bereits abgesetzt"
  294. 294 print"  hat. sie bestimmen einen neuen statt-":print"  halter, der die provinz von nun an":print"  in ihrem sinne verwalten wird.":wait56320,16,16:sys1966:goto160
  295. 295 forp=1to16:ifep(p)<>spthen311
  296. 296 xx=bn(p)/po(p):ifxx>=1thensv(p)=int(sv(p)*1.44*(log((bn(p)+1)/po(p))+1)+.5):zm(p)=0
  297. 297 ifxx<1thensv(p)=int(-1*sv(p)/(log(xx+.001)-1))
  298. 298 kr(p)=kr(p)-1:ifkr(p)=0thenkr(p)=10:mo(p)=mo(p)-1
  299. 299 ifmo(p)<0thenmo(p)=0
  300. 300 ifxx>1thenpo(p)=int((bn(p)/po(p)/5+1)*po(p)*(rnd(0)/5+.9))
  301. 301 ifxx<1thenpo(p)=int(bn(p)+rnd(0)*2000-1000)
  302. 302 sv(p)=int(sv(p)/(sn(p)+1)*16):po(p)=int(po(p)+rnd(0)*200):bv(p)=int(bv(p)*(rnd(0)*.1+.9)+po(p)+200*sv(p)+20*zg(p)):ifpo(p)<0.05*bv(p)thensv(p)=sv(p)-2
  303. 303 ifmo(p)=1thenprint"  unruhen im milit[r in ":print"   ";np$(p);" !"
  304. 304 ifsv(p)<0thensv(p)=0
  305. 305 ifmo(p)=0thenprint"  milit[rputsch in ":print"   ";np$(p);" !!!":goto342
  306. 306 ifsv(p)=1thenprint"  unruhen in ";np$(p);" !"
  307. 307 ifsv(p)=0thenprint"  volksaufstand in ":print"   ";np$(p);" !!!":goto338
  308. 308 ifsv(p)>10thensv(p)=10
  309. 309 ifpo(p)<100thenpo(p)=100
  310. 310 ifpo(p)>99999thenpo(p)=99999
  311. 311 next:mp=mp*(rnd(0)/5+.9):kp=kp*(rnd(0)/10+1):ifm=8thenkp=(rnd(0)/5+.9)*2:goto360
  312. 312 forp=1to16:ifep(p)<>spthen315
  313. 313 re(p)=0:z=gr(p)/bv(p):ab(p)=500*zb(p):ag(p)=10*zg(p):ib(p)=int(10*sqr(bw(p))*zb(p)/(rnd(0)*1.5+.5)+zb(p)*is(p))-int(80*z*zb(p)):se(p)=int(sn(p)*bv(p)/(rnd(0)*0.5+.5)/200)-int(30000*z):ifse(p)<0thense(p)=0
  314. 314 ma(p)=int(.2*le(p)+1.5*so(p)+2*bo(p)):kp(sp)=kp(sp)-ma(p)-ab(p)-ag(p)+se(p):er(sp)=er(sp)+ib(p)
  315. 315 next:ko(sp)=int(ko(sp)*(rnd(0)*.1+.85)):i=int(rnd(0)*50+1):ifi>8then320
  316. 316 gosub394:ifep(hp(sp))<>spthen320
  317. 317 p=int(rnd(0)*16+1):ifep(p)<>spthen317
  318. 318 print" in der provinz ";np$(p):print" ist folgendes passiert :":print:fi$="ereig"+str$(i):open2,8,2,fi$+",s,r":input#2,az:fort=1to2*az-1:get#2,a$:ifa$=chr$(13)thennext
  319. 319 printa$;:next:close2:onigoto329,331,332,333,334,335,336,337
  320. 320 sp=sp+1:ifsp>4thensp=1:m=m+1:fori=1to16:bl(i)=0:bs(i)=0:bk(i)=0:bb(i)=0:next
  321. 321 ifep(hp(sp))<>sporex(sp)=0then320
  322. 322 fori=1to16:ifep(i)=0thenle(i)=le(i)+100:sv(i)=8:mo(i)=8
  323. 323 next:fori=1to16:ifep(i)=spthenbn(i)=0
  324. 324 next:ifsc(sp)>0thenkp(sp)=kp(sp)-3000:sc(sp)=sc(sp)-2000
  325. 325 ifsc(sp)<0thensc(sp)=0
  326. 326 ifm>12thenm=1:ja=ja+1:ifja=324then391
  327. 327 ifzs=1then388
  328. 328 gosub394:f$=hz$(sp):gosub396:sys1400,hs$(sp),49664:sys1258,49664,56832,2:sys1400,hz$(sp),49664:sys1258,49664,54784,6:pp=0:print:print"";tab(12);"knopf dr]cken !":wait56320,16,16:gosub393:goto8
  329. 329 gb(p)=gb(p)-2:ifgb(p)<0thengb(p)=0
  330. 330 zb(p)=int(zb(p)*.8):zg(p)=int(zg(p)*.9):goto320
  331. 331 bv(p)=int(bv(p)*.85):goto320
  332. 332 zb(p)=zb(p)-1:ifzb(p)<0thenzb(p)=0:goto320
  333. 333 zg(p)=int(zg(p)*.95):goto320
  334. 334 kp(sp)=kp(sp)+10000:goto320
  335. 335 kp(sp)=kp(sp)+7500:goto320
  336. 336 kp(sp)=kp(sp)+15000:goto320
  337. 337 kp(sp)=kp(sp)+5000:goto320
  338. 338 print" das volk (der p\bel) hat den palast":print" gest]rmt und ihre verwalter umge-":print" bracht !":t=int(ko(sp)/zp(sp)):s=int(kp(sp)/zp(sp)):ko(sp)=ko(sp)-t:kp(sp)=kp(sp)-s:print" die kornspeicher wurden gepl]ndert."
  339. 339 print" insgesamt wurden";t;"scheffel":print" gestohlen !":print" aus ihrer kasse wurden";s;"aurei":print" entwendet !":zp(sp)=zp(sp)-1:print" die provinz hat sich f]r unabh[ngig":print" erkl[rt ,und auch das milit[r ":print" ist zur neuen regierung ]berge-":print" laufen !!"
  340. 340 wait56320,16,16:gosub393:ifp=hp(sp)thengosub355
  341. 341 ep(p)=0:le(p)=10000:mo(p)=10:sv(p)=10:po(p)=int(0.05*bv(p)):print"[147]":goto308
  342. 342 print" das milit[r hat die macht in ihrer":h=0:print" provinz ]bernommen und den obersten":print" befehlshaber zum neuen herrscher aus-":print" gerufen. dieser hat erkl[rt, dass er":print" demjenigen kaiser die provinz ]ber-"
  343. 343 print" l[sst, der ihm und seiner armee das ":print" meiste zahlt !":wait56320,16,16:gosub393:i=1
  344. 344 ifep(hp(i))<>iorex(i)=0theni=i+1:goto344
  345. 345 t$=chr$(34):print"[147] ";t$;"caesar ";n$(i);",":print" mindestgebot sind 5000 aurei,":print" sonst bekommt der alte eigent]mer":print" die provinz zur]ck !";t$:s=5000
  346. 346 print" caesar ";n$(i);",":j$="j":ifh=ithen351
  347. 347 print"  bieten sie";s;"?";j$;:gosub408:print:ifj$="j"andkp(i)>=sthenh=i:hg=s:s=s+5000
  348. 348 i=i+1:ifi>4theni=1:print"[147]":ifh=0then306
  349. 349 ifep(hp(i))<>ithen348
  350. 350 goto346
  351. 351 print" sie haben die provinz ersteigert !":x=i:wait56320,16,16:ifp=hp(sp)thengosub355
  352. 352 zp(x)=zp(x)+1:zp(sp)=zp(sp)-1:ep(p)=x:kp(x)=kp(x)-hg:mo(p)=5
  353. 353 ifpeek(56320)<>111then353
  354. 354 print"[147]":goto306
  355. 355 print"[147] caesar ";n$(ep(p));",":print:print"  hiermit haben sie ihre hauptprovinz ":print"  verloren. deshalb ist das spiel f]r":print"  sie nun zuende !":zs=zs-1:ifep(p)<>spthen378
  356. 356 print:print"  ihre anderen provinzen bleiben selb- ":print"  st[ndig.":ex(ep(p))=0:ifzs=1thenep(p)=0:goto388
  357. 357 fori=1to16:ifi=pthen359
  358. 358 ifep(i)=ep(p)thenep(i)=0:le(i)=10000:sv(i)=10:mo(i)=7:po(i)=int(.05*bv(i))
  359. 359 nexti:wait56320,16,16:return
  360. 360 print"[147]  in diesem monat wird geerntet !":k=0:forp=1to16:ifep(p)<>spthen362
  361. 361 k=k+30*int(sqr(fb(p))*zg(p)*(rnd(0)*1.2+1))
  362. 362 next:k=k*10:ko(sp)=ko(sp)+k:print"  in ihren provinzen haben sie insge-":print"  samt";k;" scheffel korn geerntet !":wait56320,16,16:print"[147]":goto312
  363. 363 sys1624:poke53280,6:poke53281,1:print"[144][147]  ]bersicht/spielstand":print"  spielstand":print"  spiel laden":print"  spiel speichern":print" _^menue":i=9:j=6:gosub449:a=peek(214)-5:onagoto364,370,368,8
  364. 364 fori=1to4:ifep(hp(i))<>ithen367
  365. 365 print"[147] spielstand im ";m$(m);" des jahres";ja:print"  caesar ";n$(i):print" kapital";tab(15);kp(i);" aurei":print" zahl d. prov.";tab(15);zp(i):print" kredtite";tab(15);sc(i);" aurei":print" erzmenge";tab(15);er(i);" zentner":print" kornvorrat";tab(15);ko(i);" scheffel"
  366. 366 wait56320,16,16:gosub393
  367. 367 next:goto363
  368. 368 forp=1to10:next:fi$="":print" filename";:gosub413:gosub394:open1,8,15,"s:"+fi$:close1:open2,8,2,fi$+",s,w":print#2,m:forp=1to16:print#2,bv(p):print#2,le(p):print#2,so(p):print#2,bo(p):print#2,k(p):print#2,gb(p):print#2,ep(p):print#2,bn(p):print#2,sv(p):print#2,re(p):print#2,zb(p):print#2,zg(p):print#2,bl(p):print#2,bs(p):print#2,bb(p):print#2,bk(p)
  369. 369 print#2,po(p):print#2,sn(p):print#2,is(p):print#2,kr(p):print#2,gr(p):print#2,zm(p):print#2,ib(p):print#2,ab(p):print#2,ag(p):print#2,se(p):print#2,ma(p):next:fori=1to4:print#2,ko(i):print#2,sc(i):print#2,zp(i):print#2,er(i):print#2,kp(i):print#2,ex(i):print#2,n$(i):next:print#2,ja:print#2,sp:print#2,kp:print#2,mp:print#2,zs:print#2,pp:close2:goto363
  370. 370 forp=1to10:next:fi$="":print" filename";:gosub413:gosub394:open2,8,2,fi$+",s,r":input#2,m:ifst<>0thenclose2:print:print" datei nicht auf diskette !":goto375
  371. 371 forp=1to16:input#2,bv(p):input#2,le(p):input#2,so(p):input#2,bo(p):input#2,k(p):input#2,gb(p):input#2,ep(p):input#2,bn(p):input#2,sv(p):input#2,re(p):input#2,zb(p):input#2,zg(p):input#2,bl(p):input#2,bs(p):input#2,bb(p):input#2,bk(p):input#2,po(p):input#2,sn(p):input#2,is(p):input#2,kr(p):input#2,gr(p)
  372. 372 input#2,zm(p):input#2,ib(p):input#2,ab(p):input#2,ag(p):input#2,se(p):input#2,ma(p):next:fori=1to4:input#2,ko(i):input#2,sc(i):input#2,zp(i):input#2,er(i):input#2,kp(i):input#2,ex(i):input#2,n$(i):next:input#2,ja:input#2,sp:input#2,kp:input#2,mp:input#2,zs:input#2,pp:close2:print:print" ok"
  373. 373 print:print" spieldiskette einlegen !":wait56320,16,16:open2,8,2,"remis,p,r":get#2,i$:ifst<>0thenclose2:goto373
  374. 374 close2:sys1400,hs$(sp),49664:sys1258,49664,56832,2:sys1400,hz$(sp),49664:sys1258,49664,54784,6:goto363
  375. 375 wait56320,16,16:goto363
  376. 376 sys1624:poke53281,1:j$="n":printtab(8);"zug wirklich beenden ? ";j$;:gosub408:ifj$="j"thenprint"[147]":goto295
  377. 377 goto8
  378. 378 print"[147] in ihrer provinz befinden sich":print"  ";le(p1);" legion[re !":kr(p1)=10:print"  ";so(p1);" s\ldner !":print"  ";bo(p1);" bogensch]tzen !":print"  ";k(p1);" katapulte !":print:print" wieviele legion[re wollen sie":print" mitnehmen ?";:gosub398
  379. 379 ifsl>le(p1)thenprint" unm\glich":goto77
  380. 380 ifsl>le(p1)-bl(p1)thenprint" unm\glich":goto77
  381. 381 el=sl:print" wieviele s\ldner wollen sie ":print" mitnehmen ?";:gosub398:ifsl>so(p1)thenprint" unm\glich ":goto77
  382. 382 ifsl>so(p1)-bs(p1)thenprint" unm\glich":goto77
  383. 383 es=sl:print" wieviele sch]tzen wollen sie ":print" mitnehmen ?";:gosub398:ifsl>bo(p1)thenprint" unm\glich ":goto77
  384. 384 ifsl>bo(p1)-bb(p1)thenprint" unm\glich":goto77
  385. 385 eb=sl:print" wieviele katapulte wollen sie ":print" mitnehmen ?";:gosub398:ifsl>k(p1)thenprint" unm\glich ":goto77
  386. 386 ifsl>k(p1)-bk(p1)thenprint" unm\glich":goto77
  387. 387 ek=sl:bk(p1)=bk(p1)+ek:bl(p1)=bl(p1)+el:bb(p1)=bb(p1)+eb:bs(p1)=bs(p1)+es:return
  388. 388 fi$="sieger":fori=1to4:ifep(hp(i))=ithensp=i:goto390
  389. 389 next
  390. 390 gosub394:open1,8,15,"s:nasieg":close1:open2,8,2,"nasieg,s,w":print#2,n$(sp):close2:goto392
  391. 391 fi$="remis"
  392. 392 gosub394:poke53280,0:poke53281,0:a$=chr$(34):print"[147][144]l[207]";a$;fi$;a$;",8,1":print"run":poke198,3:poke631,19:poke632,13:poke633,13:end
  393. 393 pokesi+24,15:pokesi+3,5:pokesi+2,250:pokesi+5,37:pokesi+6,17:pokesi,193:pokesi+1,7:pokesi+4,65:fort=1to75:next:pokesi+4,0:return
  394. 394 open2,8,2:close2:ifst=0thenreturn
  395. 395 print"[147]  bitte schalten sie ihr laufwerk an":print"    und legen die diskette ein !":wait56320,16,16:goto394
  396. 396 open2,8,2,f$+",p,r":get#2,a$:ifst=0thenclose2:return
  397. 397 close2:print"   legen sie die spieldiskette ein  !":wait56320,16,16:goto396
  398. 398 printtab(29);"00000":ts=33:l=1:forss=1to5:su$(ss)="0":sl(ss)=0:sl=0:s=0:next
  399. 399 su$(l)=str$(sl(l)):su$(l)=mid$(su$(l),2,1):print"[145]";tab(ts);su$(l):printtab(ts-1);" # ":print"[145]";:ifpeek(56320)=111thengosub393:goto407
  400. 400 ifpeek(56320)=125thensl(l)=sl(l)-1:gosub393
  401. 401 ifpeek(56320)=119andl>1thenl=l-1:ts=ts+1:gosub393
  402. 402 ifpeek(56320)=123andl<5thenl=l+1:ts=ts-1:gosub393
  403. 403 ifpeek(56320)=126thensl(l)=sl(l)+1:gosub393
  404. 404 ifsl(l)>9thensl(l)=0
  405. 405 ifsl(l)<0thensl(l)=9
  406. 406 goto399
  407. 407 forl=1to5:sl=sl+10^(l-1)*sl(l):nextl:sl=int(sl+.5):return
  408. 408 ifpeek(56320)=126andj$<>"j"thenj$="j":print"[157]";j$;:gosub393
  409. 409 ifpeek(56320)=126andj$<>"j"thenj$="j":print"[157]";j$;:gosub393
  410. 410 ifpeek(56320)=125andj$<>"n"thenj$="n":print"[157]";j$;:gosub393
  411. 411 ifpeek(56320)=111thengosub393:return
  412. 412 goto409
  413. 413 x=1:print"";
  414. 414 geta$(x):ifa$(x)=""then414
  415. 415 ifasc(a$(x))<65orasc(a$(x))>90then419
  416. 416 ifx<>16thenprinta$(x);:x=x+1
  417. 417 goto414
  418. 418 fory=1tox-1:fi$=fi$+a$(y):next:return
  419. 419 ifasc(a$(x))=13andx>1then418
  420. 420 ifasc(a$(x))=20thenx=x-1:print"[157]  [157][157]";
  421. 421 ifx<1thenx=1:print"";
  422. 422 goto414
  423. 423 p=1:print:i=1
  424. 424 ifep(p)<>spthenp=p+1*i:goto426
  425. 425 goto429
  426. 426 ifp>16thenp=1
  427. 427 ifp<1thenp=16
  428. 428 goto424
  429. 429 print"  ";np$(p);:fort=1to30-len(np$(p)):print" ";:next:print"[145]":ifpeek(56320)=125thenp=p-1:i=-1:gosub393:goto433
  430. 430 ifpeek(56320)=126thenp=p+1:i=1:gosub393:goto433
  431. 431 ifpeek(56320)=111thengosub393:return
  432. 432 goto429
  433. 433 ifp>16thenp=1
  434. 434 ifp<1thenp=16
  435. 435 goto424
  436. 436 p=1:print:i=1
  437. 437 ifep(p)=spthenp=p+1*i:goto439
  438. 438 goto442
  439. 439 ifp>16thenp=1
  440. 440 ifp<1thenp=16
  441. 441 goto437
  442. 442 print"  ";np$(p);:fort=1to30-len(np$(p)):print" ";:next:print"[145]":ifpeek(56320)=125thenp=p-1:i=-1:gosub393:goto446
  443. 443 ifpeek(56320)=126thenp=p+1:i=1:gosub393:goto446
  444. 444 ifpeek(56320)=111thengosub393:return
  445. 445 goto442
  446. 446 ifp>16thenp=1
  447. 447 ifp<1thenp=16
  448. 448 goto437
  449. 449 ifpeek(56320)=125andpeek(214)<ithenprint"[145]  ":print" _":gosub393
  450. 450 ifpeek(56320)=126andpeek(214)>jthenprint"[145][145] _":print"  ":print"[145]";:gosub393
  451. 451 ifpeek(56320)=111thengosub393:return
  452. 452 goto449
  453.